home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_40743.txt < prev    next >
Text File  |  1990-08-07  |  7KB  |  399 lines
  1. -- card: 40743 from stack: in.0-2
  2. -- bmap block id: 41591
  3. -- flags: 0000
  4. -- background id: 10385
  5. -- name: realEstate
  6. ----- HyperTalk script -----
  7. on resetCard
  8.   resetScroll
  9.   emptyFields
  10.   showMask
  11. end resetCard
  12.  
  13. on resetScroll
  14.   repeat with n = 4 to 6
  15.     set the scroll of cd fld id n to 0
  16.   end repeat
  17. end resetScroll
  18.  
  19. on emptyFields
  20.   repeat with n = 8 to 10
  21.     put empty into cd fld id n
  22.   end repeat
  23. end emptyFields
  24.  
  25. on showMask
  26.   show btn "blackMask"
  27. end showMask
  28.  
  29. on putTheChoice
  30.   put clickLine() into lineChoice
  31.   put the short name of the target into FieldChoice
  32.   select line lineChoice of the target
  33.   put (word 1 of FieldChoice) into whatField
  34.   put line lineChoice of cd fld FieldChoice into cd fld whatField
  35. end putTheChoice
  36.  
  37. on goChoice
  38.   if clickLine() is 1 then goCard 2
  39.   if clickLine() is 2 then goCard 3
  40. end goChoice
  41.  
  42. on goCard n
  43.   lock screen
  44.   put cd fld "price" into whatPrice
  45.   go cd ("realEstate." & n)
  46.   put whatPrice into cd fld "price"
  47.   unlock screen with barn door open slow
  48. end goCard
  49.  
  50.  
  51.  
  52.  
  53. -- part 1 (field)
  54. -- low flags: 01
  55. -- high flags: 0000
  56. -- rect: left=123 top=111 right=128 bottom=158
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 174
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: 
  65.  
  66.  
  67. -- part 2 (field)
  68. -- low flags: 01
  69. -- high flags: 0000
  70. -- rect: left=202 top=111 right=128 bottom=284
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 174
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: 
  79.  
  80.  
  81. -- part 3 (field)
  82. -- low flags: 01
  83. -- high flags: 0000
  84. -- rect: left=316 top=111 right=128 bottom=350
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 174
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: 
  93.  
  94.  
  95. -- part 4 (field)
  96. -- low flags: 01
  97. -- high flags: 0007
  98. -- rect: left=102 top=127 right=210 bottom=191
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 174
  103. -- text size: 10
  104. -- style flags: 0
  105. -- line height: 14
  106. -- part name: area choice
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   putTheChoice
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 5 (field)
  115. -- low flags: 01
  116. -- high flags: 0007
  117. -- rect: left=198 top=127 right=211 bottom=290
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 65535
  121. -- font id: 174
  122. -- text size: 10
  123. -- style flags: 0
  124. -- line height: 14
  125. -- part name: price choice
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   putTheChoice
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 6 (field)
  134. -- low flags: 01
  135. -- high flags: 0007
  136. -- rect: left=297 top=127 right=210 bottom=386
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 0
  140. -- font id: 174
  141. -- text size: 10
  142. -- style flags: 0
  143. -- line height: 14
  144. -- part name: size choice
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   putTheChoice
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 8 (field)
  153. -- low flags: 01
  154. -- high flags: 0002
  155. -- rect: left=102 top=214 right=231 bottom=191
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 0
  159. -- font id: 174
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: area
  164.  
  165.  
  166. -- part 9 (field)
  167. -- low flags: 01
  168. -- high flags: 0002
  169. -- rect: left=198 top=214 right=231 bottom=290
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 0
  173. -- font id: 174
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: price
  178.  
  179.  
  180. -- part 10 (field)
  181. -- low flags: 01
  182. -- high flags: 0002
  183. -- rect: left=297 top=214 right=231 bottom=386
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 0
  187. -- font id: 174
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: size
  192.  
  193.  
  194. -- part 11 (button)
  195. -- low flags: 00
  196. -- high flags: A003
  197. -- rect: left=194 top=236 right=254 bottom=286
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: Done
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   if cd fld "area" is empty or cd fld "price" is empty or cd fld "size" is empty then
  209.     answer "Please select an item from all 3 categories."
  210.   else
  211.     set cursor to watch
  212.     wait 60
  213.     lock screen
  214.     hide btn "blackMask"
  215.     unlock screen with barn door open
  216.   end if
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 13 (field)
  222. -- low flags: 01
  223. -- high flags: 0007
  224. -- rect: left=270 top=263 right=296 bottom=398
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 174
  229. -- text size: 10
  230. -- style flags: 0
  231. -- line height: 14
  232. -- part name: 
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   goChoice
  236. end mouseUp
  237.  
  238.  
  239. -- part 14 (button)
  240. -- low flags: 80
  241. -- high flags: 4001
  242. -- rect: left=91 top=262 right=296 bottom=398
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 1
  246. -- font id: 0
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: blackMask
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   if 1 = 2 then
  254.   end if
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 16 (field)
  260. -- low flags: 81
  261. -- high flags: 2002
  262. -- rect: left=76 top=72 right=303 bottom=415
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 0
  266. -- font id: 174
  267. -- text size: 14
  268. -- style flags: 16640
  269. -- line height: 16
  270. -- part name: Info
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   hide me
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part contents for card part 2
  279. ----- text -----
  280. PRICE RANGE
  281.  
  282. -- part contents for card part 3
  283. ----- text -----
  284. SIZE
  285.  
  286. -- part contents for card part 4
  287. ----- text -----
  288. Albert Lea
  289. Babbitt
  290. Belgrade
  291. Belle Plaine
  292. Big Falls
  293. Big Lake
  294. Big Stone
  295. Clara City
  296. Cosmos
  297. Crow Wing
  298. Danube
  299. Eden Prairie
  300. Eden Valley
  301. Edina
  302. Eyota
  303. Fulda
  304. Good Thunder
  305. Kiester
  306. Lake Elmo
  307. McIntosh
  308. Mazeppa
  309. Moose Lake
  310. New Hope
  311. New London
  312. New Prague
  313. Otter Tail
  314. Pelican Rapids
  315. Pequot Lakes
  316. Redwing
  317. Rollingstone
  318. Savage
  319. Sleepy Eye
  320. Soudan
  321. Wabasha
  322. Wabasso
  323. Wadena
  324. Waseca
  325. Wayzata
  326. Welcome
  327.  
  328. -- part contents for card part 5
  329. ----- text -----
  330. $25-35,000
  331. $35-45,000
  332. $45-55,000
  333. $55-65,000
  334. $65-75,000
  335. $75-85,000
  336. $85-95,000
  337. $95-105,000
  338. $105-115,000
  339. $115-135,000
  340. $135-155,000
  341. $155-175,000
  342. $175-195,000
  343. $195-215,000
  344. $215-235,000
  345. $235-255,000
  346. $255-275,000
  347. $275-295,000
  348. $295-315,000
  349. $315-335,000
  350. $335-355,000
  351. $355-375,000
  352. $375-395,000
  353. $395-415,000
  354. $415-435,000
  355. $435-455,000
  356. $455-475,000
  357. $475-495,000
  358.  
  359. -- part contents for card part 6
  360. ----- text -----
  361. 1 bedroom
  362. 2 bedrooms
  363. 3 bedrooms
  364. 4 bedrooms
  365. 5 bedrooms
  366. 6 bedrooms
  367. 7+ bedrooms
  368.  
  369. -- part contents for card part 13
  370. ----- text -----
  371. Lake Cottage
  372. Suburban Dream
  373.  
  374.  
  375. -- part contents for card part 16
  376. ----- text -----
  377. This HyperCard sample allows a client to specify his or her housing needs; the mainframe computer checks those needs against its long list of available homes, and then shows what homes match the client‚Äôs needs.
  378.  
  379. Follow the instructions to see how this stack works.
  380.  
  381. Click this window‚Äôs close box when you are finished viewing the sample.
  382.  
  383. CLICK HERE TO HIDE THIS TEXT.
  384.  
  385. -- part contents for card part 1
  386. ----- text -----
  387. AREA
  388.  
  389. -- part contents for card part 8
  390. ----- text -----
  391. Big Falls
  392.  
  393. -- part contents for card part 9
  394. ----- text -----
  395. $55-65,000
  396.  
  397. -- part contents for card part 10
  398. ----- text -----
  399. 7+ bedrooms